Variable 

w, 
cw 



normalized weight of flow i; 

index of the current window being served; 

index of the window containing flow i's last packet; 

net credit for flow i; 

pointer to Window k; 

index of the next window from Window k;; 
newly arriving packet for flow z; 



pw[k] 
pw[k].nw 
P t 



size of packet P,; 



TnitializationQ /* idle to busy */ 

1. cw <- 1; 

2. for (each flow 0 do jw t <- 1 ; c, <- w,; endfor 
Arrival (P) 

Compute the index of the window where P t can be placed; 

1. m4r-0; 

2. while (c, < \p\ ) do c, <— w, + c,\ m <- m + 1 ; endwhile 

3. if (there is no flow-/ packet in the queue) m= uniform (0, m)\ endif 

4. fw t <— fw t + m; 

Place the packet in the window; 

5. if (pw[fw] does not exist) Create_Window(pw[/w,]); endif 

6. Enqueue^wt/vfJ, P t ); 

Update the credit; 



DepartureQ 

Remove the packet from the head of the first window; 

1. DequeueO; 

Update variables and pointers if the window becomes empty; 

2. if (the window is empty) 

3. for (each flow / such that fw t = cw) 

4. Jw,<^pw[cw].nw;c i <-w l ; endfor 

5. cw <— pw[cw].nw; endif 



7. 



c, <— c, 
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